home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
windows
/
tintools.zip
/
TINTOOLS.TPW
< prev
next >
Wrap
Text File
|
1996-06-14
|
10KB
|
242 lines
#! ==========================================================================
#! V1.0 6/01/1996
#! ---------------------------------------------------------------------------
#!
#! (c) 1996, Reichenberger Development Incorporated - All Rights Reserved, World Wide
#! (c) 1996, Tin Man Software Corporation - All Rights Reserved World Wide
#!
#! ---------------------------------------------------------------------------
#EXTENSION(TINTOOLS,'Add Tintools'), APPLICATION, LAST,HLP('~$Introduction')
#!
#BUTTON ('TIN Tools For Windows'), AT(10,, 180)
#SHEET
#TAB ('General'), HLP('~General')
#BOXED (''), AT(, 15,, 50)
#PROMPT('&Enable Report Viewer', CHECK),%TINGLOBALVIEWER,AT(10)
#PROMPT('&Add Printer Properties', CHECK),%TINGLOBALPRNPROP,AT(10)
#ENDBOXED
#DISPLAY('We hope you enjoy these tools'), AT(, 102)
#DISPLAY('from the land of OZ!!!!!.')
#DISPLAY('TINTOOLS are free and may not be sold.')
#ENDTAB
#ENDSHEET
#ENDBUTTON
#! ------------------------------------------------------------------------
#AT (%CustomGlobalDeclarations)
#IF (%TINGLOBALVIEWER)
#DECLARE (%TINVIEWFILENAME,STRING)
#DECLARE (%TINVIEWCLIPNAME,STRING)
#DECLARE (%TMBUILDFILE,STRING)
#SET (%TINVIEWCLIPNAME, SUB(%Application, 1, 5))
#SET (%TINVIEWFILENAME, %TINVIEWCLIPNAME & '_VW.CLW')
#SET (%TMBUILDFILE, %Application & '.TM1$')
#PROJECT(%TINVIEWFILENAME)
#FIX(%Driver,'DOS')
#ADD(%UsedDriverDLLs,%DriverDLL)
#PROJECT(%DriverLIB)
#ENDIF
#ENDAT
#! ------------------------------------------------------------------------
#AT (%AfterGlobalIncludes),WHERE(%TINGLOBALPRNPROP)
INCLUDE('PRNPROP.CLW')
#ENDAT
#! ------------------------------------------------------------------------
#AT (%GlobalMap)
#IF (%TINGLOBALVIEWER)
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
MODULE('%TINVIEWFILENAME') !REPORT VIEWER
TIN_REPORTVIEWER(QUEUE,<STRING>),LONG
END
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
#CREATE (%TMBuildFile)
MEMBER('%APPLICATION')
INCLUDE('TMVIEWER.CLW')
#CLOSE
#REPLACE (%TINVIEWFILENAME,%TMBUILDFILE)
#ENDIF
#ENDAT
#AT (%GlobalData)
#ENDAT
#ATSTART
#ENDAT
#AT (%ProgramSetup)
#ENDAT
#! ==========================================================================
#! V1.50 5/01/1996
#! ---------------------------------------------------------------------------
#! (c) 1996, Reichenberger Development Incorporated - All Rights Reserved, World Wide
#! (c) 1996, Tin Man Software Corporation - All Rights Reserved World Wide
#! ---------------------------------------------------------------------------
#EXTENSION (TTreportviewer, 'TINTOOLS Report Viewer'), FIRST, PROCEDURE
#BOXED ('Report View Options')
#DISPLAY('')
#PROMPT ('&Enable Viewer', CHECK), %TINReportViewer,AT(10)
#PROMPT ('&Prompt User ', CHECK), %TINReportViewerBox,AT(10)
#DISPLAY('')
#DISPLAY('Enter Report Title For Viewer Or Leave Blank')
#PROMPT ('',@S50), %TINReportViewerTitle,AT(10,,180)
#DISPLAY('')
#ENDBOXED
#AT (%DataSectionBeforeReport), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
#IF (%TINReportViewer)
#IF (%TINReportViewerBox)
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
TINPRINTOPTION1 BYTE
TINCURPRINTER STRING(50)
XXXCURPRINTER STRING(50),OVER(TINCURPRINTER)
TINCOPIES LONG(1)
TINCOLLATE BYTE
TINSAVEFILE BYTE
TINFILENAME STRING(100)
!AND %TINGLOBALVIEWER
Printoptwin WINDOW('Report Destination'),AT(,,240,92),CENTER,GRAY
STRING('Current Printer:'),AT(80,13),FONT('Arial',8,,FONT:bold),USE(?String2)
OPTION,AT(6,14,58,36),FONT('Arial',8,,FONT:regular),USE(TINPRINTOPTION1),BOXED
RADIO('View Report'),AT(14,23),FONT('Arial',8,,FONT:regular),MSG('View The Report'),TIP('View The Report'), |
USE(?TINPRINTOption1:Radio1),VALUE('1')
RADIO('Print Report'),AT(14,33),FONT('Arial',8,,FONT:regular),MSG('Print The Report Without Viewing'), |
TIP('Print The Report Without Viewing'),USE(?TINPRINTOPTION1:Radio2),VALUE('2')
END
STRING(@s50),AT(85,24),USE(XXXCURPRINTER)
BUTTON('OK'),AT(24,69,44,13),FONT('Arial',8,,FONT:regular),MSG('Do It'),TIP('Do It'),USE(?OkPrtOpt), |
DEFAULT
BUTTON('Cancel'),AT(82,69,44,13),FONT('Arial',8,,FONT:regular),MSG('Cancel Report'),TIP('Cancel Report'), |
USE(?CancelPrtOpt)
BUTTON('Options'),AT(138,69),FONT('Arial',8,,FONT:regular),MSG('Select Options'),TIP('Select Options'), |
USE(?TINPRINTSEL)
END
PrintxxxWindow WINDOW('Print Options'),AT(,,250,99),FONT('System',8,,FONT:bold),CENTER,SYSTEM,GRAY
OPTION('Copies / Collate'),AT(5,7,58,32),FONT('Arial',9,,FONT:regular),USE(?Option2),BOXED
END
SPIN(@N_3B),AT(28,19,20,8),FONT('Arial',8,,FONT:regular),MSG('Select Number Of Copies'),TIP('Select Number Of Copies'), |
USE(TINCOPIES),RANGE(1,15),STEP(1)
BUTTON,AT(226,13),MSG('Select A File'),TIP('Select A File'),USE(?PrintToFIle),ICON(ICON:Pick)
CHECK('Collate'),AT(9,27),FONT('Arial',8,,FONT:regular),MSG('Collate Report Copies'),TIP('Collate Report Copies'), |
USE(TINCOLLATE)
ENTRY(@s60),AT(75,25),MSG('Enter File Name'),TIP('Enter File Name'),USE(TINFILENAME)
ENTRY(@s50),AT(50,52),FONT('Arial',10,,FONT:bold),MSG('Current Printer Selected'),TIP('Current Printer Selected'), |
USE(TINCURPRINTER),SKIP,READONLY
STRING('Copies:'),AT(9,17),FONT('Arial',8,,FONT:regular)
CHECK('Print To FIle'),AT(75,15),FONT('Arial',8,,FONT:regular),MSG('Print To FIle'),TIP('Print To FIle'), |
USE(TINSAVEFILE)
OPTION('Print To File'),AT(71,7,169,32),FONT('Arial',8,,FONT:regular),USE(?option3),BOXED
END
STRING('Current Printer:'),AT(6,50),FONT('Arial',9,,FONT:regular)
BUTTON('OK'),AT(51,76,32,10),FONT('Arial',8,,FONT:regular),MSG('Accept Options'),TIP('Accept Options'), |
USE(?PrintXXXOK),DEFAULT
BUTTON('Cancel'),AT(99,76,32,10),FONT('Arial',8,,FONT:regular),MSG('Cancel'),TIP('Cancel'),USE(?PrintXXXCancel)
BUTTON('Select'),AT(145,76,32,10),FONT('Arial',8,,FONT:regular),MSG('Select A Printer'),TIP('Select A Printer'), |
USE(?PrintXXXSelect)
END
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
#ENDIF
#ENDIF
#ENDAT
#AT (%ProcedureSetup), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
#IF (%TINReportViewerBox)
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
LocalResponse = RequestCancelled
DO PrintViewerOpt
PRINTER{PROPPRINT:COLLATE} = TINCOLLATE
PRINTER{PROPPRINT:COPIES} = TINCOPIES
IF TINSAVEFILE THEN
STOP(TINFILENAME)
PRINTER{PROPPRINT:PRINTTOFILE} = TRUE
PRINTER{PROPPRINT:PRINTTONAME} = CLIP(TINFILENAME)
.
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
#ENDIF
#ENDAT
#AT (%AfterOpeningReport), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
#IF (%TINReportViewer)
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
#!IF TINPRINTOPTION1 = 1
#!%Report{Prop:Preview} = PrintPreviewImage
#!END
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
#ENDIF
#ENDAT
#AT(%BeforePrintPreview), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
#IF (%TINReportViewer)
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
IF LocalResponse = RequestCompleted
ENDPAGE(%Report)
CLOSE(ProgressWindow)
IF TINPRINTOPTION1 = 1
IF TIN_REPORTVIEWER(PrintPreviewQueue,'%TINReportViewerTitle') = RequestCompleted
%Report{PROP:FlushPreview} = True
END
ELSE
%Report{PROP:FlushPreview} = True
END
END
OMIT('***TINTOOLS***')
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
#ENDIF
#ENDAT
#AT (%BeforeClosingReport), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
#IF (%TINReportViewer)
!-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
***TINTOOLS***
!-----------TINMAN SOFTWARE REPORT VIE